# setwd("~/10.ShawnLearnBioinfo/01.ShinyApp/10.submitButton/")
library(shiny)
## Define UI
shinyUI(fluidPage(
  
  ## App title
  titlePanel("Demostration of submitButton()"),
  # selectInput widget for the selection of dataset
  sidebarPanel(
    selectInput("dataset","Choose a datset:",
                choices = c("iris","pressure","mtcars")),
    numericInput("obs","Number of observations: ",6),
    submitButton("Update!"),
    p("explanation1"),
    p("explanation2")
  ),

  mainPanel(
    # just a header for the heading
    h4(textOutput("dataname")),
    verbatimTextOutput("structure"),
    h4(textOutput("oberrvation")),
    tableOutput("view")
  )
))